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More on ProDOS and Nonstandard Apples 


In the March issue we published Bob Stout's note 
on how to make ProDOS boot in a Franklin 
computer. The current issue, (No. 9) of 
Hardcore Computist points out that the address 
given in that note didn't work for the ProDOS 
version dated 1-JAN-84. Apparently Bob was 
referring to an earlier version. The correct 
address for the NOPs is $265B. 


In a Similar vein, inside this issue Jan 
Eugenides points out that ProDOS will also fail 
in an Apple with a modified Monitor ROM. He 
then gives a slightly different patch to defeat 
the check code. 


18-Digit Arithmetic, Part 2......e.eeeeeee++BOb Sander-—Cederlof 


Feedback on installment one of this series came from as far 
away as Sweden. Paul Schlyter, with others, pointed out the 
omission of three very important letters. PRINT (14.9*10) 
indeed prints 149, as expected. What I meant to say was that 
PRINT INT(14.9*10) prints 148. 


I noticed another error at the top of page 21. The exponent 
range runs from 10°-63 thru 10°63, not 10°64. 


Paul pointed out that my routines did not check for underflow 
and overflow. I did have such checks in another part of the 
code, as yet unlisted, but I now agree with him that some 
checks belong in the routines printed last month. 


The subroutine SHIFT.DAC.RIGHT.ONE is called when a carry 
beyond the most significant bit is detected in DADD, at line 
1620. If the exponent is already 10°63, or $7F, this shift 
right will cause overflow. That means the sum formed by DADD 
is greater than 10°63, and we need to do either of two things. 
My usual choice, assuming the routines are being used from 
Applesoft, is to JMP directly to the Applesoft ROM overflow 
error routine, at $E8D5. Another option is to set the DAC 
exponent to $7F, and the mantissa to all 9's. To implement it 
my way, add these lines: 


1945 BMI .2 
2085 .2 JMP SE8D5 


Underflow needs to be tested in the NORMALIZE.DAC subroutine. 
Underlofw happens when the exponent falls below 10°-63. The 
normal procedure upon underflow is to set the result to zero. 
Zero values in DP18 are indicated by the exponent being zero, 
regardless of the mantissa value. Delete lines 2400-2480 and 
line 2730, and enter the following lines 


2400 LDY #-1 

2410 .1 INY 

2420 CPY #10 

2430 BCS .7 

2440 LDA DAC.HI,Y 
2450 BEQ .l 

2730 .6 LDA DAC.EXPONENT 
2731 BPL .8 

2732 .7 LDA #0 

2733 STA DAC.EXPONENT 
2734 STA DAC.SIGN 
2735 .8 RTS 


All these changes will be installed on Quarterly Disk 15. 
This month I want to present several pack and unpack 


subroutines, and one which rounds the value in DAC according to 
the value in the extension byte. 
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S-C Macro Assembler Version Li Qiawis i0b wis bow 6445 See wow eine ei wkwe sess S00 
S-C Macro ASSEMDLlEF VELSION Loleccecccccccccccccvcccccsccccccccccsee S92 90 
Version Ios UPGACC ic 60 Si 4b 6 65654466 Sos Cie ONS 66 OOO eee kee eee l2s 50 
Source Code for Version 1.1 (on two disk SideS) ...ccccccccccccccceeee SlO0 
Full Screen Editor for S-C Macro (with complete source code).........-$49 
S-C Cross Reference Utility (without source Ccode)..ccccccccccccccceees S20 
S-C Cross Reference Utility (with complete source code) ....cccccesecee 990 
DISASM Dis-Assembler (RAK -WAL ©) 66.6. 66.6.6 4 0600 650.0460006 008654046006 00000000 
Source Code for DISASMiiceesseivesctevecdeecesecesesseoveves  BOGitional $30 


S-C Word Processor (with complete source COdE) ...cccccccccccccccscsesse 9 D0 
Double Precision Floating Point for Applesoft (with source code)......$50 
S-C Documentor (complete commented source code of Applesoft ROMs).....$50 
Source Code of //e CX & FB ROMS ON GiSk..cccccccccccccscccccccccesesee Sl 


(All source code is formatted for S-C Macro Assembler Version 1.1]. Other 
assemblers require some effort to convert file type and edit directives.) 


AAL Quarterly DISK Gio ie 6664.66 4:60 ow 00 4S eee aw 0s oe ee & eS a6 eee OCOCN $15 
Each disk contains all the source code from three issues of “Apple 
Assembly Line", to save you lots of typing and testing time. 

QD#1: Oct-Dec 1980 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 1981 QD#6: Jan-Mar 1982 
QD#7: Apr-Jun 1982 QD#8: Jul-Sep 1982 QD#9: Oct-Dec 1982 
QD#10: Jan-Mar 1983 QD#11: Apr-Jun 1983 QD#12: Jul-Sep 1983 
QD#13: Oct-Dec 1983 QD#14: Jan-Mar 1984 QD#15: Apr-Jun 1984 


AWIIe Toolkit (Don Lancaster, SynergeticsS) ...ccccccccccccccccccccessee S39 
Quick-Trace (ANthro-Digital) ssc cssccesewscevecveeveceevens (FOG. $50) $45 
Visible Computer: 6502 (Software Masters) ...cccccccvcccecee (reg. $50) $45 
ES~-CAPE : Extended S-C Applesoft Program EGQICOl i664 4s%G 6 e0a weds o0ee wee O00 
Amper-Magic (Anthro-Digital) ...cccccccccccccccscccccccccee (Leg. $75) $65 
Amper-Magic Volume 2 (Anthro-Digital) ...cccccccrcccccceccee (Leg. $35) $30 
Routine Machine (Southwestern Data Systems).....ecceee (reg. $64.95) $60 
“Bag of Tricks", Worth & Lechner, with diskette....cecccvcee ($39.95) $36 
FLASH! Integer BASIC Compiler (Laumer ReSearch) ..ccr»cccccccccccccccese gl 
Fontrix (Data TransSforMS) ..ccrccccccccvvccsccscccccccscccsccccesesecese sso 
Aztec C Compiler System (Manx Software) ...ccccccceccccsecee (LEG. $199) $180 


Blank Diskettes (Verbatim) ....e.eeeeee2-50 each, or package of 20 for $45 
(Premium quality, single-sided, double density, with hub rings) 

Vinyl disk pages, 6"x8.5", hold two diskS eaCh...ccccccccceceseelO for $6 
Diskette Mailing Protectors (hold 1 or 2 diskS)....eeeeeeee-40 Cents each 

or $25 per 100 

These are cardboard folders designed to fit into 6"X9* Envelopes. 

Envelopes for Diskette MallerS..ccccccccccccccsccsccccsecccce 6 Cents each 
ZIF Game Socket Extender (Ohm ElectronicS) ..ccccccccccccccccccccvceese 90 


Books, BOOKS, BoOOKS.c.ccccccccccvcscecccceses ecompare Our discount prices! 
"Apple J{ Circuit Description", Gayler...cccccccccccceee ($22.95) $21 
"Understanding the Apple II", Sather... .ccccccccccccccee ($22.99) $21 
“Enhancing Your Apple II, vol. 1", Lancaster.....ceeeeee ($15.95) $15 

Second edition, with //e information. | 
“Incredible Secret Money Machine“, LancaSter..cccccccccve ($7.95) $7 
“Beneath Apple DOS", Worth & LeEChHNEr...cccccccccccccccee (919.95) $18 
“Assembly Lines: The Book", Roger Wagner..ccccccccccceee ($19.95) $18 
"What's Where in the Apple", Second Edition....ccccccvcee ($24.95) $23 
“What's Where Guide” (updates first edition) ....cccccceee ($9.95) $9 
"6502 Assembly Language Programming", Leventhal.........($18.95) $18 
"6502 Subroutines", Leventhal cceccsceevsccucesvcesevecesese ($17.95) $17 
"Real Time Programming ~- Neglected Topics", Foster...... ($9.95) $9 


We have small quantities of other great books, call for titles & prices. 
Add $1.50 per book for US shipping. Foreign orders add postage needed. 


*** S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 ‘*** 
kee (214) 324-2050 aah 
*** We accept Master Card, VISA and American Express *** 
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Note that I have just LISTed the subroutines below, rather than 
showing the assembly listing, because the program parts need to 
all be assembled together before they are meaningful. 


There are two “unpack” subroutines, MOVE.YA.DAC and 
MOVE.YA.ARG. They perform the “load accumulator” function. 
There is one “pack” subroutine, MOVE.DAC.YA, which performs the 
“store accumulator" function. 


The MOVE routines use a page-zero pair at $5E and §$5F. 
Assuming the DP18 package will be called from Applesoft via the 
&-vector, there will be no page-zero conflicts here. 


The subroutines DADD and DSUB from last month, and DMULT and 
DDIV to come, all expect two arguments in DAC and ARG and leave 
the result in DAC. Assuming there are two packed DP18 value at 
VAL.A and VAL.B, and that I want to add them together and store 
the result in VAL.C, I would do it this way: 


LDA #VAL.A 

LDY /VAL.A 

JSR MOVE.YA.DAC 
LDA #VAL.B 

LDY /VAL.B 

JSR MOVE.YA.ARG 
JSR DADD 

LDA #VAL.C 

LDY /VAL.C 

JSR MOVE.DAC.YA 


Note that MOVE.DAC.YA calls ROUND.DAC before storing the 
result. ROUND.DAC checks the extension byte. If the extension 
byte has a value less than $50, no rounding need be done. If 
it is $50 through $99, the value in DAC should be rounded up. 
If the higher digits are less than .999999999999999999, then 
there will be no carry beyond the most significant digit, and 
no chance for overflow. However, if it is all 9's we will get 
a final carry and we will need to change the number to 
100000000000000000 and add one to the exponent. In tiny 
precision, this is like rounding .995 up to 1.00. If the 
exponent was already 10°63, rounding up with a final carry 
causes overflow, so I jump to the Applesoft error handler. 


Lae ®SAVE S.DP18 PACK & UNPACK 


1050 See mmn nnn wen monn nnn w nnn oo enen= 
1080 * - PAGE ZERO USAGE 

1960 PNTR .EQ $5E,5F 

1300 # MOVE (Y,A) INTO DAC AND UNPACK 
1110 

1120 MOVE.YA.DAC 

1130 STA PNTR 

1140 STY PNTR+1 

1150 LDY # MOVE 10 BYTES 
1160 .1 LDA (PNTR),Y 

ae STA DAC,Y 

1180 DEY 

1190 BPL .1 

1200 INY Y=0 

1210 STY DAC. EXTENSION 
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1220 LDA DAC.EXPONENT 


1230 STA DAC.SIGN 

1240 AND #$7F 

1250 STA DAC. EXPONENT 
— 

0 : MOVE (Y,A) INTO ARG AND UNPACK 
1300 MOVE. YA. ARG 

1 STA PNTR 

132 STY PNTR+1 

13 ) LDY 9 MOVE 10 BYTES 
1340 .1 LDA (PNTR),Y 

1350 STA BS 

1360 DEY 

1379 BPL .1 

1380 INY Y=0 

1390 STY ARG. EXTENSION 

1400 LDA ARG. EXPONENT 

1410 STA ARG.SIGN 

1420 AND #$7F 

1430 STA ARG. EXPONENT 

HAD @emenea to 

1480 : PACK AND MOVE DAC TO (Y,4A) 
1490 MOVE.DAC.YA 

1490 PNTR 

1500 STY PNTR+1 

1510 JSR ROUND.DAC 

1520 LDA DAC. EXPONENT 

1530 BIT DAC.SIGN 

1540 BPL . POSITIVE 

1320 ORA #380 NEGATIVE 

1560 .1 LDY # 

1570 .2 STA (PNTR),Y 

1580 INY 

1590 LDA DAC,Y 

1600 CPY #10 

1610 BCC . 

1350 ss 

1640 e ROUND DAC BY EXTENSION 
1920 ROUND. DAC 

1670 A DAC. EXTENSION 

1680 CMP #$50 COMPARE TO .5 
1690 BCC . NO NEED TO ROUND 
1760 LDY # 

1710 SED DECIMAL MODE 
1720 .1 LDA #0 

i 0 ADC DAC.HI,Y 

1740 STA DAC.HI,Y 

1750 BCC .2 NO NEED FOR FURTHER PROPAGATION 
1760 DEY 

1770 BPL .1 «MORE BYTES 
1780 INC DAC. EXPONENT 

1790 BMI . . ee OVERFLOW 
1800 LDA #$10 -999...9 ROUNDED TO 1.000...0 
1810 STA DAC.HI 

1820 .2 CLD 

1830 .3 LDA #0 

1840 STA DAC. EXTENSION 

1850 RTS 

1860 . CLD 


4 
1870 JMP AS.OVRFLW 


None of the pack/unpack code is especially tricky, but the same 
cannot be said for DMULT. Multiplication is handled “just like 
you do it with pencil and paper”, but making it happen at all 
efficiently makes things look very tricky. 


Call DMULT after loading the multiplier and multiplicand into 
DAC and ARG (doesn't matter which is which, because 
multiplication is commutative). Then JSR DMULT to perform the 
multiply. The result will be left in DAC. 
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Looking at the DMULT code, lines 1040-1070 handle the special 
cases of either argument being 0. Anything times zero is zero, 
and zero values are indicated by the exponent being zero, 50 
this is real easy. 


Lines 1090-1130 clear a temporary register which is 20 bytes 
long. This register will be used to accumulate the partial 
products. Just in case some of the terminology is losing you, 
here are some definitions: 


12345 <-—- multiplicand 
x 54321 <— multiplier 

12345 <-- lst partial product 
24690 <-— 2nd partial product 


37035 <-—- 3rd " 7 
49380 <-- 4th . i 
61725 <-- 5th . 7 


670592745 <-—— product 


Lines 1150-1180 form the 20-digit product of the two 10-digit 
arguments. I wanted to reduce the number of times the 
individual digits have to be isolated, or the accumulators 
shifted by 4-bits, so I used a trick. Line 1150 calls a 
subroutine which multiplies the multiplicand (in ARG) by all 
the low-order digits in each byte of the multiplier (in DAC). 
In other words, I accumulate only the odd partial products at 
this time. Then I shift DAC 4-bits right, which places the 
other set of digits in the low-order side of each byte. I also 
have to shift the result register, MAC, right 4-bits, and then 
I call the MULTIPLY.BY.LOW.DIGITS subroutine again. 


Lines 1200-1270 form the new exponent, which is the sum of the 
exponents of the two arguments. Since both exponents have the 
value $40 added to make them appear positive, one of the $40's 
has to be subtracted back out. But before that, if the sum is 
above $CO then we have an overflow condition. After 
subtracting out one of the $40's, if the result is negative we 
have an underflow condition. Note that since the carry status 
was clear at line 1250, I subtracted $3F; for one more byte, I 
could have done it the normal way and used SEC, SBC #$40. 


Lines 1290-1310 form the sign of the product, which is the 
exclusive-or of the signs of the two arguments. Lines 
1330-1370 copy the most significant 10 bytes of the product 
from MAC to DAC. 


The result may have a leading zero digit in the left half of 
the first byte, so I call NORMALIZE.DAC at line 1390. If The 
leading digit was zero, normalizing will shift DAC left one 
digit position, leaving room for another significant digit on 
the right end. Lines 1400-1490 handle installing the extra 
Gigit if necessary. 


MULTIPLY.BY.LOW.DIGITS picks up the low-order digit out of each 


byte of the multiplier, one-by-one, and calls 
MULTIPLY .ARG.BY.N. 
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MULTIPLY.ARG.BY.N does the nitty-gritty multiplication. And 
here is where I lost all my ingenuity, too. The multiplier 
digit is stored in DIGIT, and used to count down a loop which 
adds ARG to MAC DIGIT times. Surely this can be done more 
efficiently! How about it Paul? Or Charlie? Anyone? 


oe #SAVE S.DP18 MULTIPLY 


040. Wetenencueecsecu stueusecacoaauac 
ORO D DMULT “TDA DAC.EXPONENT IF DAC=0, EXIT 
60 LDA ARG.EXPONENT IF ARG=0, SET DAC=0 AND EXIT 
#---CLEAR RESULT REGISTER-------- 

LDA #0 


oi STA MAC,Y 


0 
0 

0 

0 

0 

0 ' 

Q #---FORM PRODUCT OF FRACTIONS---- 

0 JSR MULTIPLY.BY.LOW. DIGITS 

0 JSR SHIFT.MAC. RIGHT. ONE 

0 JSR SHIFT.DAC. RIGHT. ONE 

0 JSR MULTIPLY .BY.LOW.DIGITS 

0 #---ADD THE EXPONENTS-----------~ 

0 LDA DAC.EXPONENT 

0 CLC 

0 ADC ARG.EXPONENT 

0 CMP #$CO CHECK FOR OVERFLOW 
0 BCS . ... OVERFLOW 

0 SBC #$3F ADJUST OFFSET 
0 BMI ... UNDERFLOW 
0 STA DAC. EXPONENT 

0 #---FORM SIGN OF PRODUCT--------- 
0 LDA DAC. SIGN 
0 EOR ARG. SIGN 
0 STA DAC. SIGN 
0 #---MOVE MAC TO DAC----~---~--~---- 
0 LDY #9 
0 

0 

0 

0 

0 

0 

0 


02 LDA MAC,Y 
STA DAC. HI,Y 
DEY 


BPL .2 

®---NORMALIZE DAC---------------- 
JSR NORMALIZE.DAC 
LDA MAC IF LEADING DIGIT=0 

AND ‘sre THEN GET ANOTHER DIGIT 


MAC+10 


ORA DAC.HI+9 
STA DAC.HI+9 


#0 
STA DAC.SIGN 
STA DAC.EXPONENT 


AS .OVRFLW 


DNEW NA = OO DAHA EWN 


wlalolejolelvelelolelololololololelelalololololelolelolol@) 
e 
mh 
Cy 
= 
"~~ 


MULTIPLY. BY.LOW.DIGITS 
SED DECIMAL MODE 


Y #19 
1 LDA DAC.HI,X 
AND #$0F ISOLATE NYBBLE 
Q. 0, SO NEXT DIGIT 
JSR MULTIPLY. ARG. BY 
2 DEY EXT Mae POSITION 
DEX NEXT DAC DIGIT 
BPL .1 DO NEXT DIGIT 


ch ch ch ce ce eh ce ce cd ch ch eth eh aed et eh eh eh ed ed el ceed ed eh ed cd etd ceed ek ed td ch ed th ed ee ed ce eh ed th ed ath ed wed eh ced et ed cet at eh et a ee th ct eh eel ed ed eh ed wd od ad od oe od 
SWW WWW) WLW) AD PRO 
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1700 CLD BINARY MODE 
1710 RTS DONE 

1720! Seeeeer ec cscehinwasencuacccseeee: 
1730 MULTIPLY. ARG. BY.N 

7 0 STA DIGIT N= 1...9 
1750 STY TEMP SAVE Y 

1760 STX TEMP+1 SAVE X 

1770 «1 LDX #9 INDEX INTO ARG 
1780 CLC 

1790 .2 LDA ARG.HI,X 

1800 ADC MAC,Y ADD IT 

1810 STA MAC,Y 

1820 DEY NEXT MAC 

1830 DEX NEXT ARG 

1840 BPL .2 NEXT DIGIT 
1850 BCC . NO CARRY 

1860 3 LDA #0 PROPAGATE CARRY 
1 70 ADC MAC,Y 

1880 STA MAC,Y 

1890 DEY 

1900 BCS 3. MORE CARRY 
1910 4 LDY TEMP GET POSITION IN MAC 
1920 .5 DEC DIGIT NEXT DIGIT 
1930 BNE .1 

19 0 LDX TEMP+1 

1950 RTS DONE 

1060 Weteeen co cede sein ece eo cenecescss 
1970 SHIFT.MAC. RIGHT. ONE 

19 0 LDY #4 4 BITS RIGHT 
1990 .0 LDX # 20 BYTES 

2000 LSR MAC 

2010 .1 ROR MAC ,X 

2020 INX NEXT BYTE 
2030 PHP 

2040 CPX #20 

2050 BCS .2 NO MORE BYTES 
2060 PLP 

2070 JMP .1 

2080 .2 PLP 

2090 DEY NEXT BIT 
2100 BNE .0 

2110 RTS 


Well, that's all for this month. Next month expect some simple 
I/O routines and the divide subroutine. 


NEW DON LANCASTER RELEASES 


Companion Diskette for Enhancing I ........00- $ 19.50 
Companion Diskette for Enhancing I] ........2.- $ 19.50 
Companion Diskette for Assembly Cookbook..... $ 19.50 
eerste Ile HACKER package ......cceee. $2K8o" ¢ $39 50 
Tooukit plewriter™ He USER package ....ccccccccces ait ‘ 
Applewriter™ Ie HIRES dump package ......... (soon) 
Absolute Ile reset mod package .....ccccscsceee $ 19.50 


Vaporlock instant-syne package .....cccccccccees $ 19.50 
Oldfangled animation demo (Meyer) ........0-+. $ 950 
Incredible Secret Money Machine .....ceccccses $ 7.50 
Complete Lancaster book and software list ..... (free) 


SYNERGETICS 
746 First Street AWlle voice helpline 


Box 809-AAL 
Thatcher AZ, 85552 (602) 428-4073 


[Don's AWlle USER package set this entire "camera ready" ad!] 
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DOSoOlogy and DOSonomy.....ccocccccccesseeeeBOD Sander-Cederlof 


The other day I was thinking about the way Apple spells ProbDos. 
They jealously guard the spelling, having trademarked the idea 
of upper-case “P" and "DOS" with lower-case “ro", 


Of course, we all know that “Pro” is a standard prefix, with 
origins in the Greek language. In Greek it means “before”. I 
think Apple derived it from the English word “professional”, so 


that ProDOS means “professional DOS". Nevertheless, the “pro* 
even in the word professional means before, according to the 
etymologies in dictionaries. 


Greek courses at Dallas Theological Seminary back 
1974. I remember very little now, but one thing 
prepositions. “Pro” is one, but there are a 


I took some 
in 1973 and 
stuck with me; 


lot more. 


What other interesting DOSses can we invent? 


By the way, the preferred pronunciation of DOS rhymes with 
If you insist on rhyming with the latter, 


“boss", not “gross". 


your pronunciation has a decided Spanish accent. 
have invented “UnoDOS", which is of course two-thirds of a 


popular product on the IBM-PC, uno-dos-tres by Lotus. 


The first that came to mind was “ParaDOS". 
we'd like to trademark it! 
Or pair-of-dice or paradise, take your pick. 


For you we 


Ha! 


We like it so well, 
It could relate to either paradox 
A shrewdly 


written DOS could appear as all three at different times to 


different 


people. 


Bill and I then started to brainstorm, and we can't stop. 

We've got a blackboard full of neat names, just waiting for 
some one to write code for. 
previously-used names, like SoliDOS and ProntoDOS, but for the 
most part I think we have cornered the market. 


We may have stumbled on to some 


AmbiDOS MisoDOS PhiloDOS BiblioDOS ViviDOS DiaDOS 
PaleoDOS MesoDOS NeoDOS PsychoDOS MoriDOS Dial-a-DOS 
ChromoDOS BlancoDOS TechniDOS SomatoDOS DulciDOS AnoDOS 
AcriDOS FeloniDOS BaloniDOS FormiDOS MiniDOS CathoDOoOSs 
MicroDOS MidiDOS MilliDOS MegaDOS NanoDOS VagaDOSs 
TeraDOS UniDOS BioDOS StupiDOS TorriDOs FabriDOS 
SemiDOS PeriDOS Ant iDOS AnteDOS ProsDOS ExoDOS 
HypoDOS HyperDOS OvaDOS PupaDOS PropoDOs EnDOS 
ArcheDOS StatiDOS DynamoDOS DynaDOS ProtoDOS EschatoDOS 
OsteoDOS MultiDOS PuroDOS CardioDOS PyroDOSs PrimaDOS 
FrigiDOS InterDOS AndroDOS GynoDOS GymnoDOS PseudoDOS 
HieroDOS SpiroDOS HelioDOS CycloDOS AutoDOS AggreDOSs 
ManoDOS ChiroDOS PetroDOS LithoDOS AeroDOS Pos iDOS 
PlanoDOS LiquiDOS MarbleDOS PedoDOS GraviDOS NegaDOS 
PedaDOS GeriaDOS NutriDOS FlexiDOS PleniDOS NecrobDOS 
VisiDOS InvisiDOS FluoriDOS FloriDOS FaunaDOS PensaDOS 
ThanaDOS AgriDOS NaviDOS NovaDOS SpuriDOS MensaDOS 
StereoDOS VerbiDOS VermiDOS CineDOS GeoDOS TragiDOS 
MonoDOS DuoDOS CobraDOS FerroDOS OxyDOS AfroDOS 
EuroDOS NippoDOS FrancoDOS IndoDOS CanaDOS JHispanoDOS 


Get the idea? 
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OBJ.APWRT][F updated to AWIIe Toolkit...........Don Lancaster 


I have packed even more goodies on eight disk sides, combining 
the HACKER and USER packages into one powerful Toolkit. The 
price is only slightly higher... They were $29.50 each, now 
only $39.50 together. 


Now that we have yet another Apple monitor, vastly different 
yet purportedly compatible, guess what! Applewriter //e is not 
QUITE compatible with the //c. Surprise, surprise! The status 
line display gets turned into garbage. One of the patches 
included in the new AWIIe Toolkit solves the problem admirably. 
This AWIIE CLARIFIER Applesloth program modifies your 
Applewriter IIe backup diskettes to eliminate trashing of the 
IIc status display line. Here it is now, more than slightly 
compressed for AAL, to tease you into getting the whole 
Toolkit: 


100 REM *--------------------------------------- * 


200 REM * COPYRIGHT 1984 BY DON LANCASTER AND * 
220 REM * SYNERGETICS, BOX 1300, THATCHER AZ * 
240 REM * 85552 Phone: (602) 428-4073 * 
260 REM * ALL COMMERCIAL RIGHTS RESERVED * 
280 REM *----------~-------------~-~~----~------- 


380 TEXT : HOME : HIMEM: 8000 

400 HTAB 8: PRINT “Applewriter IIe CLARifier“: PRINT 

600 REM Check Validity 

660 PRINT CHR$(4)"“BLOAD OBJ.APWRT]) [F,A$2300 

670 IF PEEK (14815) < > 188 THEN 880 

680 IF PEEK (15052) < > 41 THEN 880 

690 IF PEEK (15096) < > 59 THEN 880 

695 REM Install Patches 

700 POKE 14815,60: POKE 14816,36: POKE 14817,207: 
POKE 14818,16: POKE 14819,2: POKE 14820,169: 
POKE 14821 ,62 

710 POKE 15052,208: POKE 15053 ,42 ° 

720 POKE 15062 ,96 

730 POKE 15096,41: POKE 15097,127: POKE 15098,201: 
POKE 15099,96: POKE 15100,176: POKE 15101,208: 
POKE 15102,201: POKE 15103,64 

740 POKE 15104,144: POKE 15105,204: POKE 15106,41: 
POKE 15107,63: POKE 15108,176: POKE 15109,200 

750 PRINT CHRS$(4) “UNLOCK OBJ.APWRT] [F* 

760 PRINT CHRS$(4) “BSAVE OBJ.APWRT] [F,A$2300,L$30D3" 

770 PRINT CHRS$(4) "LOCK OBJ.APWRT] [F" 

870 PRINT “IT WORKED!“ : END 

880 PRINT “Will not verify as AWIIe; patch ABORTED" : END 


Gotchas: Fixes only the status line. Rare and brief changes 
in the flashing cursor symbol will remain. 
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Appleseed is a complete computer system. It is designed using the bus 
conventions established by Apple Computer for the Apple ][. Appleseed is 
designed as an alternative to using a full Apple ][ computer system. The 
Appleseed product line includes more than a dozen items including CPU, 
RAM, EPROM, UART, UNIVERSAL Boards as well as a number of 
other compatible items. This ad will highlight the Mother board. 


BX-DE-12 MOTHER BOARD 


The BX-DE-12 Mother board is designed to be fully compatible with all of 
the Apple conventions. Ten card slots are provided. Seven of the slots are 
numbered in conformance with Apple standards. The additional three 
slots, lettered A, B and C, are used for boards which don’t require a 
specific slot number. The CPU, RAM and EPROM boards are often placed 
in the slots A, B and C. 


The main emphasis of the Appleseed system is illustrated by the Mother 
Board. The absolute minimum amount of circuitry is placed on the Mother 
Board; only the four ICs which are required for card slot selection are on 
the mother board. This approach helps in packaging (flexibility & smaller 
size), cost (buy only what you need) and repairability (isolate and fix pro- 
blems through board substitution). 


Appleseed products are made for O.E.M.s and serious industrial/scientific 
users. Send for literature on the full line of Appleseed products; and, watch 
here, each month, for additional items in the Appleseed line. 


Appleseed products are not sold through computer stores. 
Order direct from our plant in California. 


Apple is a registered trademark of Apple Computer, Inc. 


DOUGLAS ELECTRONICS 
718 Marina Blvd., San Leandro, CA 94577 © (415) 483-8770 
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Using the PRT COMMANG 66 #64 46464044404 d66 064440 6 o0ee BILL Mor gan 


New users of the S-C Macro Assembler have asked for examples of 
how to use some of the customizing features. For example, just 
now I had a call from a gentleman who needed to know how to set 
up the PRT vector to turn on his printer and send the special 
control strings it requires. 


It happens that I had the same problem just a few weeks ago. I 
just picked up an OkiData 92 printer, which I am quite happy 
with, except for a couple of small warts. Setting Elite 
spacing (12 characters/inch, 8 lines/inch) on that printer 
requires these hex codes: 9C 9B B8. The catch is that 9C, 
which corresponds to Control-backslash. I can't type CTRL-\ on 
my Apple II+! Besides, by the time I type in the commands to 
turn on the printer, set Elite mode, and set a left margin, I 
have entered 15 keystrokes. That's too many for my lazy, 
dyslexic fingers, so I came up with a PRT command to do the 
whole job. 


The addresses in this routine are set up for the 40-column 
Version 1.1 Language Card assembler. If you are uSing another 
version, check to make sure that the patch space is indeed all 
zeroes. All $D000 versions of the assembler have some blank 
Space before SE000. If you are using a $1000 version, look to 
see if there is some space available between the end of the 
assembler and the beginning of the Symbol Table and set 
PATCH.SPACE to that address. You will also have to set 
PRT.VECTOR to $1009. 


Here are the exact steps to use this patch: 


Start the assembler. 


$C083 C083 
$D01C:0 DO O F8 


SAA60 .AA61 
LOAD S.PRT 
ASM 


$D01C:0 0 0 0 
$C080 


BSAVE <assembler>,A$D000 ,LSXXXxX 
The SAA60.AA61 line gives you the length that you will need to 
use for the BSAVE command. Substitute the filename of the 
version you use for <assembler> in the above command. 
If you are using Version 1.0 of the assembler, things are a 
little different. You should omit the $D01C entries in the 
above commands, delete lines 1090 and 1100, and add this line 
to the program: 


1125 -TA $800 
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Then, after the assembly, install the patch with $DF00<800.81EM 
and $p009: 4C 00 DF. These extra steps are necessary because 
Version 1.0 lacks the ability to override memory protection 
during assembly. 


Lines 1270-1290 are where you should install the codes your 
printer needs. 


1000 #~--------~~--------------------- 
1010 ® 
1020 ® SAMPLE PRT COMMAND 
1030 
70) ee ee 
D009- 1050 PRI.VECTOR .EQ $009 
DFO0- 1060 PATCH.SPACE .EQ $DF00 
FDED- 1070 MON.COUT EQ $FDED 
1090 .OR PRT.VECTOR 
DO09- 4C 00 DF 1100 , JM JUMP TO HANDLER 
1120 .OR PATCH. SPACE 
DFOO- A2 00 1180 PRT  LDX #0 
DFO2- BD OF DF 1150 «1 LDA STRING,X | OUTPUT THE 
DFO5- FO 06 ~—- 1160 BEQ .2 CONTROL 
DFO7- 20 ED FD 1170 JSR MON.COUT | STRING 
DFOA- E8 1180 INX 
DFOB- 10 F5 = 1190 BPL .1 
1200 
DFOD- 60 1210 .2 RTS 
1220 #u------------------------ =~ -—-- 
DFOE- 8D 84 — 1230 STRING .HS 8D84 <CR><*D> 
DF10- DO D2 A3 
DF13- B1 1240 .AS -/PR#1/ 
DF14- 8D 1290 -HS 8D <CR> 
DF15- 9C 9B B8 1270 ~HS 9C9BB8 ELITE SPACING 
DF18- 9B A5 C3 1280 ~HS 9BA5C LEFT MARGIN 
DF1B- BO B9 BO 1290 -HS BOBOB 90 DOT SPACES 
DF1E- 00 1300 -HS 00 END MARKER 


Revisiting $48:0....cccccccvccscvccccvcceeseBObD Sander—Cederlof 


Remember all those warnings about storing 0 in $48 after DOS 
had a whack at your zero page? Maybe not, but let me remina 
you. 


Apple's monitor uses locations $45 through $49 in a very 
Special way. Ignoring this, the writers of DOS also used then. 
When you start execution from the monitor (using the G, S, or T 
commands) The data in these locations gets loaded into the 
registers: $45 into A, $46 into xX, $47 into Y, $48 into P 
(status), and $49 into S (stack pointer). When a program hits 
a BRK opcode, or the S command has finished executing a single 
opcode, the monitor saves these five registers back into 

$45. ee $49. 


No serious problem, unless you like to enter the monitor and 
issue the G, S, or T commands. Even less of a problem, because 
the S and T commands were removed from the monitor ROM when the 
Apple II Plus came out. And if you don't care what is in the 
registers anyway.... 


But the P-register is rather special, too. One of its bits, 
called “D", controls how arithmetic is performed. If "D" is 
zero, arithmetic will be done in the normal binary way; if D=l, 
arithmetic is done in BCD mode. That is, adding one to $49 
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will produce $50 rather than $4A. If the program you are 
entering doesn't expect to be in decimal mode, and tries 
arithmetic, you will get some rather amusing results. 


Hence the warning: before using the G command from the 
monitor, type 48:0 to be sure decimal mode is off. Later 
versions of DOS store 0 into $48 after calling those routines 
which use $48. And the monitor stores 0 into $48 whenever you 
hit the RESET key (or Control-RESET). 


RREEKRKKKEKKKKKKEKKKEKEKKEKEKKEKKERKKEKKKEKKEKEEEKKKKKEKEEK 


x 
* Now I am here to tell you that storing 0 into * 
* $48 is ALL WRONG! It took Bill and me 5 hours * 
* to unravel the mystery caused by storing zero * 
* there! = 
* * 
REKKKEKEKKEEKKKEKKKEKKEKKKEKKEEEKKEKEKEKKEKEKEKEKEEKKKKEEKEK 


You should put into $48 a sensible value. Better, DOS should 
never use $45 through $48; if it must use them, save and 
restore them. There are eight bits in the P-register, and in 
the 6502 seven of them are important. One of them, we 
discovered, is VERY important. 


The bit named "I" controls the IRQ interrupt. If I=l1, IRQ 
interrupts will not be accepted. If 1I1=0, IRQ interrupts will 
be accepted. So...who cares about interrupts? 


Hardly anyone uses interrupts in Apple II's, because of all the 
hidden problems. But there are some very nice boards for the 
Apple that are designed to be used with interrupts. Most of 
them are safe, because RESET disables their interrupt 
generators. 


Need I say that we discovered a board that does not disable the 
interrupt generators when you hit RESET? The Novation Cat 
Modem (a very excellent product) leaves at least one of its 
potential IRQ sources in an indeterminate state. IRQ's don't 
immediately show up, though, because they are trapped until you 
have addressed any of the soft switches on the card. But, for 
example, if that card is in slot 2 and I read or write any 
location from S$COAO through S$COAF, IRQ's start coming. Still 
no problem, because I=1 in the P-register. 


UNTIL WE USE THE MONITOR G COMMAND! 


If I use the monitor G command, location $48, containing 0, is 
loaded into the P-register. Then an IRQ gets through and sends 
the 6502 vectoring through an unprepared vector at $3FE,3FF and 
BANG! 


Our solution was to put SEI instructions in various routines, 
and to make sure that $48 contains 4, not 0, before using the G 
command. 


From now on, whenever you hear that you need to be sure $48 
contains zero, think four. 
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More Random Number GeneratorS....ccccecsseeee BOD Sander-Cederlof 


I published my “Random Numbers for Applesoft" article last 
month just in time. The June issue of Micro includes a 9.5 
page article called “A Better Random Number Generator", by H. 
Cem Kaner and John R. Vokey. The article reports on work 
funded by the Natural Sciences and Engineering Research Council 
of Canada (NSERC). 


The authors give an excellent overview of the various methods 
used to test random number generators, and the methods they 
used during their seven years of research to produce three 
“better“ generators. It is worth buying a copy of Micro to get 
a copy of this article. 


The authors used the same linear congruential algorithm I 
discussed last month, but with different parameters. My 
favorite last month was: 


R(new) = ( R(old) * A +C ) mod 2°32 
where A = 314159269 
and C = 907633386 


Kaner and Vokey decided to use a 40-bit seed and use mod 2” 40 
in calculating each successive value. After extenSive analysis 
and testing, they came up with three generators based on the 
following values for “A" and “C"; 


RNG 1: A = 31415938565 
C= 26407. 

RNG 2: A = 8413453205 
C = 99991 

RNG 3: A = 27182819621 
C= 


There are an unusually large number of typos in the article, 
and some of them are hard to decipher. The value 26407 above 
was written in the comment field as 24607; however, in the 
hexadecimal constant assembly code it was 0000006727, which is 
26407. Even worse, in the listing there are missing lines of 
code and missing characters here and there. All of the 
immediate mode instructions are missing a “#" character. Four 
or five labels are never defined in the listing. 


Since the program as printed cannot possibly be successfully 
loaded, assembled, POKEd, or executed, I have chosen to 
re-write it for inclusion here, after my own style. I believe 
my version is also significantly improved in coding and speed. 


The reason given for choosing to work with 40 bits rather than 
32, even though Applesoft only stores 32 and using 40 takes 
longer, was that it is important to provide more values between 
0.0 and 2°-32. I tend to disagree on the importance of this, 
Since most uses of random numbers on the Apple are for games, 
and simulate such simple things as dealing cards or throwing 
dice. Perhaps more serious simulations need more precise 
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randomness. Of course they also increase by a factor of 256 
the number of numbers generated before the sequence repeats. 


Buried in the middle of the program is a well-optimized 40-bit 
multiplication loop. You might enjoy puzzling out how it 
works! 


The program uses USR(x), where x selects which of the three 
generators to use. There is no provision for setting the seed 
or for selecting a range other than 0...1, such as I included 
in my programs last month. Some enterprising individual will 
marry the shell of my USR subroutine with the RNG of Kaner and 
Vokey to produce a really great Applesoft Random Number 
Generator. 


1000 *SAVE S.KANER & VOKEY 
1020 # BASED ON PROGRAM PRINTED IN MICRO MAGAZINE 
1030 & JUNE 1984, PAGES 33,34, BY H. CEM KANER 
10 0 é AND JOHN R. VOKEY 

oo0A- 100 USER.VECTOR .EQ OA, OB, OC 

009D- 1070 FAC [EQ $9D THRU $A1 

OOA2- 1080 FAC.SIGN  .EQ $A2 

OOAC- 1090 FAC. EXT -EQ $AC 

E82E- 1110 NORMALIZE. FAC.2 .EQ $E82E 
1130 OR $300 
1 0 : °TF BsKANER & VOKEY 

0300- AQ 4C i120 LINK LDA #$4C RJMP" OPCODE 

0302- 85 OA 1170 STA USER .VECTOR 

O304- AQ 45 §=1180 LDA #RANDOM 

0306- 85 0B ~—s:1190 STA USER .VECTOR+1 

0308- A903. ~=—s- 1200 LDA /RANDOM 

O30A- 85 OC ~—«—12110 STA USER.VECTOR+2 

030C- 60 1220 RTS 
1230 a ne ne ee a ee ee ae ee eran! 

030D- 00 00 00 

0310- 67 2 1240 Z.C HS 00.00.00.67.27 26407 

0312- 07 50 89 


0315- 2E 05 1250 Z.A HS 07.50.89.2E.05 31415938565 
031A- 00 00 1260 Z.OLD .HS 00.00.00.00.00 


0324- 1B Hf 1290 Y.A ~HS 01.F5.7B.1B.95 8413453205 
0329- 00 00 1300 Y¥.OLD ~HS 00.00.00.00.00 


1910: Seseececces cco coc cc eee 
032B=- 00 00 00 
032E- 00 0 1320 X.C ~HS 00.00.00.00.03 3 
0330- 06 54 38 
033A- 1360 GROUP -BS 1 
03 3B- 1370 MULTIPLIER .BS 5 
0340- 1390 -BS 5 
eT AO 04 1800 RANDOM LDY #Z.C-Z.C+4 
O347—- A5 A2 1410 LDA FAC.SIGN 
0349— 30 08 1420 BMI .1 SELECT Z 
O34B- AO 13 130 LDY #Y.C-Z.C+4 
O3 De A5 9D 1440 LDA FAC 
O34F- FO 02 1450 BEQ .1 SELECT Y 
0351= AO 22 1460 LDY #X.C-Z.C+4 | SELECT X 
0353- 8C 3A 03 1470 «1 STY GROUP SAVE FOR LATER 
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---------------~------- APPLE SOFTWARE ----------------------- 


NEW!!! FONT DOWNLOADER & EDITOR (#39.00) 

Turn your printer into a custos typesetter. Downloaded characters remain active while printer is powered. Can be used 
with every word processor capable of sending ESC and control codes to the printer. Switch back and farth easily between 
standard and custoa fonts. All special printer functions (like expanded, coapressed, eaphasized, underlined, etc.) apply 
to custoa fonts. Full HIRES screen editor lets you create your own custom characters and special graphics syabols. 
Compatible with aany ‘duab’ & ‘seart’ printer I/F cards. User driver option provided. Specify printer: Apple Dot Matrix 
Printer, C.Itoh 8510A (Prowriter), Epson FX-80/100 or OkiData 92/93. 


DISASM 2.2e - AN INTELLIGENT DISASSEMBLER ($30.00) 

Investigate the inner workings of machine language programs. DISASM converts 6502 machine code into aeaningful, syabolic 
source. Creates a standard DOS 3.3 text file which is directly coapatible with DOS ToolKit, LISA and S-C (4.0 and MACRO) 
asseablers. Handles data tables, displaced object code & even lets you substitute your own aeaningful labels. (100 
cosaonly used Monitor & Pg Zero pg naaes included.) An address-based cross reference table provides further insight into 
the inner workings of aachine language prograas. DISASH is an invaluable aachine language learning aid to both the 
novice & expert alike. SOURCE codes $40.00 


S-C ASSEMBLER (Ver4.0 only) SUPPORT UTILITY PACKAGE ($30.00) 
# SC.XREF - Generates a GLOBAL LABEL Cross Reference Table for coaplete docusentation of source listings. Foraatting 
control accoaodates all printer widths for best hardcopy outputs. # SC.6SR - Global Search and Replace eliainates 
teadious aanual renasing of labels. Search all or part of source. Optional proapting for user verification. # SC. TAB - 
Tabulates source files into neat, readable fora. SOURCE codes $40.00 


--------------------- HARDWARE/FIRMWARE --------------------- 


THE ‘PERFORMER’ CARD ($39.00) 

Plugs into any Apple slot to convert your ‘dueb‘ centronics-type printer I/F card into a ‘saart’ one. Cossand aenu 
provides easy access to printer fonts. Eliainates need to reaeaber coaplicated ESC codes and key thea in to setup 
printer. Added features include perforation skip, auto page nuabering with date & title. Also includes large HIRES 
graphics screen duap in noreal or inverse plus full page TEXT screen duap. Specify printer: Epson MX-80 with 
Grattrax-80, MX-100, MX-80/100 with GraftraxPlus, NEC 80923A, C.Itoh 8510 (Prowriter), Okidata B2A/B3A with Okigraph & 
OpkiData 92/93. Oki bonus: print EMPHASIZED & DOUBLE STRIKE fonts’ GOURCE codez: $30.00 


FIRMWARE FOR APPLE-CAT: The ‘MIRROR’ ROM ($25.00) 

Comaunications ROM plugs directly into Novation‘’s Apple-Cat Modes card. Three basic aodes: Duab Terainal, Reaote Console 
& Prograseable Modee. Added features include: selectable pulse or tone dialing, true dialtone detection, audible ring 
detect, ring-back option and built-in printer buffer. Supports sost 80-colusn displays and the i-wire shift key aod. 
Uses a superset of Apple‘s Comm card and Nicromodea II coaaands. A-C hardware differences prevent 1002 coapatibility 
with Coa card. SOURCE code: #640.00 


RAM/ROM DEVELOPMENT BOARD ($30.00) 

Plugs into any Apple slot. Holds one user-supplied 2Kx8 seaory chip. Use a 6116 type RAM chip for prograe developaent or 
just extra aesory. Plug in a preprograseed 2716 EPROM to keep your favorite routines ‘on-line’. A versatile board with 
many uses' Maps into $Cn00-CnFF and $C800-CFFF aeaory space. Circuit diagraa included. . 


NEW!!! SINGLE BOARD COMPUTER KIT ($20.00) 

Kit includes etched PC board (with solder sask and plated thru holes) and asseably instructions. User provides 6502 CPU, 
6116 2K RAM, 6821 dual B-bit 1/0 and 2732 4K EPROM plus isc comaon parts. Originally designed as intelligent printer 
interface - easily adapted to aany applications needing dedicated controller. (Assembled and tested: $119.00) 


All asseably language SOURCE code is fully cossented & provided in both S-C Asseabler & standard TEXT foreats on an 
Apple DOS 3.3 diskette. Specify your systea configuration with order. Avoid a $3.00 postage and handling charge by 
enclosing full payeent with order (MasterCard & VISA excluded). Ask about our products for the VIC-20 and Coesodore 64! 


RAK - WARE 
41 Ralph Road West Orange NJ 07052 (201) 325-1885 
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#---LOAD SELECTED GROUP---------- 
LDX #4 


1480 
0356- A2 04 ~—«-:1490 MOVE 5 BYTES 
0358- B9 OD 03 1500 .2 LDA Z.C,Y 
Breanne bile 
o3epe 9D 3B 0 1530 STA MULTIPLIER ,X 
Se ES 8S pt a 
O36A- CA 1570 DEX 
036B- 10 EB _—- 1580 BPL . 
mea eR a 
Ofer. Be ac C1e10 3 STX FAC.EXT USE FOR BYTE COUNT 
0371- BD 3B 03 1620 LDA MULTIPLIER, X 
0374 85 9D 1630 STA EAC SAVE FOR, 8-BIT MULITPLY 
$348 6 9 1940 4 LSR FAC GET RIGHTMOST BIT INTO CARRY 
037A- 90 0B ~—s: 16 60 BCC .6 =0, SO WE DO NOT ADD THIS TIME 
037C- 18 1670 CLC =1; SO WE BETTER ADD 
O37D- B5 OF 1680 .5 LDA FAC+1,X 
0 {F- 7 40 03 1690 ADC OLD,X 
Osbhe Che tt0 Sry PACH tox 
0385- 10 1720 BPL .5 
O387- be fi 03 1730 6 ASL OLD+4 | SHIFT MULTIPLICAND LEFT 
038A- 2E 43 03 1740 ROL OLD+3 
ieee aie ER 
0393- 2E 40 03 1770 ROL OLD 
0398- A6 AC 1750 LDX FAC.EXT GET BYTE COUNT AGAIN 
i i sila 
O36B- CA 1810 DEX — REDUCE BYTE COUNT 
039C- 10 D1 =: 1820 BPL .3 ...MORE BYTES 
039E- A2 04 ag a 
O3A0- AC 3A 03 1300 LDY GROUP 
03A3- BS 9E _ 1860 .7 LDA FAC+1,X 
O3A5- 99 17 03 1870 STA Z.OLD,Y 
8 Ae. CA B96 DEX 
OZ3AA- 10 FT? ~—- 1900 BPL .7 
1910 ®---NORMALIZE NEW VALUE---------- 
O3AC- AO 80 1920 LDY #380 ASSUME A FRACTION 
OZ3AE- AS 9E 1 30 8 LDA FAC+1 LOOK AT LEADING BIT 
O3B0- 30 11 1980 BMI .9 .eeFINISHED NORMALIZING 
ger ee at (4880 ion PAGAL 
_ + 
O3B6- 66 AO 1870 ROR FAC+3 
Se Ge EES 
gaBey BB 58 3050 CRY #358 
O3BF- BO ED 2020 BCS . 
O3Ci- AO 00 ~=—-2030 LDY #0 LESS THAN 2°40 IS ZERO 
03¢ ~ 84 9D 2080 .9 STY FAC EXPONENT 
03c5- A9 00 =: 3050 LDA #0 
03C7- 85 a2 = 20060 STA FAC.SIGN MAKE IT POSITIVE 
03C9- 60 2070 RTS 


Booting ProDOS with a Modified Monitor ROM........Jan Eugenides 


You may have already figured this out, but ProDOS won't boot if 
you have installed S. Knouse's modified ROM in your Apple. 
This can easily be fixed, as follows: 


On track 1, sector C, change bytes B4-B6 from AE B3 FB to A2 
EA EA. This tells ProDOS your machine is a II+. If it's 
a //e, make B5 an AO instead. 

On track 1, sector 9, change bytes 60-61 from A9 00 to A5 OC. 
This defeats the ROM check routine. 


Ta daaa! Now ProDOS works just fine with your modified ROM. 
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Fixing the Andromeda 16K Card......ccccccccecececeeBOD Bernard 


In the April 1984 Call-APPLE there was a letter from John 
Wallace regarding a problem with the Andromeda 16K RAM card. 
As this card was the second on the market, first after Apple's 
(which was bundled with Pascal), there are probably still tens 
of thousands in use. Yet the Andromeda is anathema to some 
hardware and software. 


In particular, it played havoc with John Wallace's copy of 
Apple PIE (a popular word processor from yesteryear), and my 
Lobo 8" floppy drive controller (another relic, I suppose). 
Bob S-C tells of running into the problem too: 


“I have an Andromeda board, and I ran into this 
problem with early versions of ES-CAPE. Using a STA 
(or other store) opcode to any soft switches on the 
Andromeda card write-protected the card. Using two 
stores in a row to try to write-enable the card does 
no good either. I had to change all stores to loads 
or BITs to make it work. Apple's board accepts 
either stores or loads, as do all other memory cards 
I have tested." 


There are probably lots of interfaces and programs out there 
which stumble over Andromeda. Wallace details a hardware 
modification to the Andromeda board which makes it work the 
Same as all other memory boards. I found a slightly simpler 
way, and I recommend that all Andromeda owners fix their boards 
as soon aS possible. 


Remove the 74LS08 chip at board location U13. Bend pin 10 out 
so that it sticks straight out, and plug the chip back into its 
socket so that pin 10 is on the outside. Solder a small wire 
to pin 10 (carefully), and solder the other end of the wire to 
pin 14 of the same chip. Or, you can solder to a solder pad 
pin 14 is connected to, as shown in the drawing below. (Pin 14 
is connected to Vcc, the +5 volts line.) That's all there is 


to it. 


John Wallace suggests using a 1K resistor rather than a wire, 
but I found a wire is sufficient. 


With the wire installed, both reads and writes can be used to 
switch the card, just like Apple intended it. 
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Finding the Erroneous Bit Using CRC.....-..ceeeeeeee-Bruce Love 
Hamilton, New Zealand 


The April 1984 AAL article about using Cyclic Redundancy Codes 
posed the question, “How do you find out which bit was in 
error, assuming only one was wrong?" I found a way. 


My algorithm assumes that there was one and only one bit wrong 
in the entire 258-byte message (256 bytes of original message 
plus 2 bytes of CRC). The bits are numbered left-to-right, or 
most significant bit of first byte received through the least 
Significant bit of the CRC, 0 through S$80F (or 2063, if you 
prefer decimal). 


After receiving the data and CRC, the RECV program has computed 
a composite CRC and the result will be $0000 if there were no 
errors. If the result is non-zero, it uniquely determines 
which bit was wrong. Here is a summary of my algorithm for 
finding which bit: 


let bit.number = 2063 

let dummy.crce = 1 

if dummy.crce = cre, then we found the bit 
decrement bit.number 

shift dummy.crce left 1 bit 

if carry set, EOR with $1021 

loop 


[ The following comments are by Bob Sander-Cederlof. ] 


The program listing which follows is an addendum to the listing 
in the April issue of AAL. Lines 3070 through the end should 
be appended to the program in that issue. If you buy the AAL 
Quarterly Disk, it will already be there. 


The sequence [I used for testing the program went like this. 
First I assembled the whole program, April's plus the one 
below. Then I typed “$4000<F800.F8FFM" to move a copy of the 
monitor's first page into the test buffer. I thought this 
would be “interesting” data to play with. Then these steps: 


:MGO SEND (fakes sending the buffer) 

1LF45 (SEND prints out the CRC for BUFFER) 
$4000 (see what is there) 

4A (it was $4A) 

:$4000:CA (make a fake error in the lst bit) 
:MGO RECV 

XXxX (some non-zero value) 

:MGO FIND.BAD.BIT 

0000 (the bad bit was the first bit) 
$4000:4A (restore the correct bit 


Then I tried the same steps on various other bit positions, 
with accurate results in every case. 
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3070 # FIND WHICH BIT IS BAD IN BUFFER+CRC 

090 ® RESULT IS BIT POSITION IN MESSAGE 

3100 # WHERE THE FIRST BIT OF THE MESSAGE IS BIT 0 

110 . AND (IN THIS CASE) THE LAST CRC BIT IS BIT $80F. 

330 . ALGORITHM BY BRUCE LOVE, NEW ZEALAND 
0010- 3150 BIT.NUMBER .EQ $10,11 
0012- 3100 DUMMY.CRC .EQ $12, 13 

31h0 FIND. BAD. BIT 
0954- A9 OF 3190 LDA #$80F TOTAL # BITS - 1 
0956- 85 19 3200 STA BIT. NUMBER (WE WILL COUNT BACKWARDS) 
0958- AQ 0 210 LDA /$80F 
O95A- 85 11 3220 STA BIT.NUMBER+1 
095c- A901 =: 3230 LDA #$0001 STARTING POINT FOR BIT FINDER 
0958 85 12 2ho STA DUMMY. 
0960- AQ 00 250 LDA /$0001 
0962- 85 13 260 STA DUMMY. CRC+1 
O96K- Ad O 270 .1 LDA CRC COMPARE RECEIVED CRC WITH 
0966- C5 12 280 CMP DUMMY.CRC PROCESSED VALUE; 
0968- DO 0 290 BNE . IF THEY MATCH, WE HAVE FOUND THE 
096A- AS 01 300 LDA CRC+1 _—s«wBAD BIT. 
096C- C5 13 310 CMP DUMMY .CRC+1 
096E- FO 1F 320 BEQ . ..eFOUND BAD BIT! 
0970- A5 10 BO «2 LDA BIT.NUMBER DECREMENT BIT COUNTER 
0972— DO O# 0 BNE . 
O974- C6 11 50 DEC BIT.NUMBER+1 
0976- 30 24 3300 BMI .5 WENT TOO FAR 
0978- C6 10 0 .3 DEC BIT.NUMBER 
097A- 06 12 3380 ASL DUMMY .CRC 
097C- 26 13 3390 ROL DUMMY.CRC+1 
097E- 90 E 00 BCC .1 
0980- AS 12 410 LDA DUMMY.CRC 
0982- 49 21 3420 EOR #$21 
0984- 85 12 3430 STA DUMMY.CRC 
0986 5 13 40 LDA DUMMY .CRC+1 
0988- 49 1 450 EOR #$10 
098A- 85 13 460 STA DUMMY.CRC+1 
098c- 8C 6% 09 3470 JMP . 
O98F- AS 11 34 0.4 LDA BIT.NUMBER+1 PRINT THE BIT NUMBER 
0991- 20 DA FD 3490 JSR PRBYTE (IF $8000, THE ERROR WAS 
0994— AS 10 3500 LDA BIT.NUMBER NOT A SINGLE BIT) 
0996- 20 DA FD 3510 JSR PRBYTE 
0999- ic 8E FD 3520 JMP CROUT 
099¢- 00 30 5 BRK 

95 NO: @onseta nc cckeiecsueecsoeencesnns 


The Barkovitch Utilities 


Did you notice Dave Barkovitch's ad last month? He has written 
a very handy set of utilities for us serious Applers, and sells 
"em cheap! Be prepared to puzzle your way through his 
admittedly skimpy documentation, but it is all there. 


The I/O Tracer comes in EPROM on a little card that plugs into 
any slot 1-7 for only $40.50 (including shipping). I/O Tracer 
is essentially a powerful disk ZAP utility, allowing you to 
read/write/edit any DOS 3.3 sector. You see an entire sector 
at once on the screen, in either hex or ASCII, along with all 
status information. 


Dave's Single-Step Trace program will help you debug assembly 
language. He likes it better than the other commercial 
varieties of debuggers, and sells it for only $35. 


Any questions, call Dave at (201) 499-0636. 
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Converting to Motorola S-Format...........eeBOb Sander-Cederlof 


Last April I told how to convert object code to the Intellec 
Hex Format (AAL pages 14-18, April, 1984). Both Intel and 
Zilog use that format. Motorola, on the other hand, has its 
own format for object code. It is similar, but it is 
Significantly different. If you are programming for a Motorola 
chip, or using a PROM burner that uses Motorola format, then 
the following program is for you. 


The Motorola S-Type format has three kinds of records: header, 
data, and end-of-file. Each record begins with the letter "Ss" 
and ends with a carriage return linefeed (CRLF). According to 
the samples I have seen, all of the bytes in a record are in 
ASCII code with the high bit zero. (Apple peripherals tend to 
like the high bit = 1, so I made this an option.) The maximum 
length including the “S" and up to but not including the CRLF 
is 64 “frames". Between the “S" and CRLF, each record consists 
of five fields: 


Record format field: ASCII 0, 1, or 9 (hex $30, $31, or 
$39) for header, data, or end-of-file records 
respectively. 


Byte count field: the count expressed as two ASCII digits 
of the number of bytes (half the number of frames) from 
address field through the checksum field. The minimum is 
3, and the maximum is 60 decimal or $3C hexadecimal. 


Address field: four frames representing the four digits 
of the load address for data bytes in a data record, or 
the run address in an end-of-file record. All four digits 
will be "0" in a header record. 


Data field: two hex digits for each byte of data. The 
number of bytes will be 3 less than the number specified 
in the byte count field, because that count includes two 
bytes for the address and one byte for the checksun. 


Checksum field: two hex digits representing the l's 
complement of the binary sum of all the bytes in the 
previous four fields. 


If you compare the S-Type format with the Intellec format, you 
will note several differences: 


records start with "S" instead of “:" 

the fields are in a different order 

there was no header record for Intellec 

the byte count covers three fields instead of only 
the data field 

the checksum is computed by a different algorithm 
and covers different data. 


+t + & 


% 


I tried to use as much as possible of the Intellec program when 
writing the Motorola program. You will find a lot of 
Similarities if you compare the two. Both are designed to be 
used with the monitor's control-Y instruction. Both expect you 
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Automatically date 
stamps files with 
PRO-DOS 


THE NEW TIMEMASTER II 


NEW 1984 
DESIGN 

An official 
PRO-DOS Clock 


just plug it in and your programs can read the year, month, date, day, 
and time to 1 millisecond! The only clock with both year and ms. 


at the same time (many examples are included). 


Apple Peripherals Are All We Make 


That’s Why We're So Good At It! 


Super Music Synthesizer 
improved Hardware and Software 


amr iititiiueeaaer 


@ NiCad battery keeps the TIMEMASTER II running for over ten years. 

@ Full emulation of ALL other clocks. Yes, we emulate Brand A, Brand T, @ Complete 16 voice music synthesizer on one card. Just plug it into 
Brand P, Brand C, Brand § and Brand M too. It's easy for the your Apple, connect the audio cable (supplied) to your stereo, boot 
TIMEMASTER to emulate other clocks, we just drop off features. the disk supplied and you are ready to input and play songs. 
That’s why we can emulate others, but others CAN’T emulate us. @ It's easy to program music with our Compose software. You will start 

@ The TIMEMASTER I will automatically emulate the correct Clock Card right away at inputting your favorite songs. The Hi-Res screen shows 
for the software you're using, You can also give the TIMEMASTER Ila what you have entered in standard sheet music format. 
simple command to tell it which clock to emulate (but you'll like the @ Now with new improved software for the easiest and the fastest 
Timemaster mode better). This is great for writing programs for those music input system available anywhere. 
poor unfortunates that bought some other clock card. We give you lots of software. tn addition to Compose and Play 

@ Basic, Machine Code, CP/M and Pascal software on 2 disks! programs, 2 disks are filled with over 30 songs ready to play. 

@ Eight software controlled interrupts so you can execute two programs @ Easy to program in Basic to generate Complex sound effects. Now 


your games can have explosions, phaser zaps, train whistles, death 


@ Onboard timer lets you time any interval up to 48 days long down to cries. You name it, this card can do it. 


the nearest millisecond. @ Four white noise generators which are great for sound effects. 
The TIMEMASTER ti includes 2 disks with some teally fantastic time oriented @ Plays music in true stereo as well as true discrete quadraphonic. 
programs (over 40) including dppointment book so you ll never torget to du anything @ Full control of attack, volume, decay, sustain and release. 
again. Enter your appointments up tod yearn advance then forget them. Plus DOS @ Will play songs written for ALF synthesizer (ALF software will not take 
dater so it willautomatic ally add the date when disk files are Created ormodidied The advantage of all our card’s features. Their software sounds the same 
disk ts Over a $200 00 value alone - we give the software others seth All software : a : 
packages tor business, data base Management snd Communi ahons ate made to Our synthesizer) 
read the TIMEMASTER I I you want the most powerlul and the easiest fo use lock @ Our card will play notes from 30HZ to beyond human hearing, 
tor your Apple. you want a4 TIMEMASTER II @ Automatic shutoft on power-up or if reset is pushed. 


PRICE $129.00 


Many many more features. 


PRICE $159.00 


Viewmaster 80 


There used to be about a dozen 80 column cards for the Apple, now 
there's only ONE. 


Z-80 PLUS! 


@ TOTALLY Videx Compatible. 
~ @ 80 characters by 24 lines, with a sharp 7x9 dot matrix. 
Ps | S @ On-board 40/80 soft video switch with manual 40 column override 
@ Fully compatible with ALL Apple languages and software— there are 
se oe TY NO exceptions. 
2 3 @ Low power consumption through the use of CMOS devices. 
ee @ All connections are made with standard video connectors. 
: @ Both upper and lower case characters are standard. 

. Tees as fos ee Pe: ‘er chib @ a uate pa (using Herr aca based C.R.T. controller) 
@ fully compatible with microsoft disks (no pre-bout required). e The VIEWMASTER incorporates al the features of all other 80 column 

@ Specifically designed for high speed operation in the Apple fle (runs cards, plus many new improvements 

just as fast in the IEF and Franklin). : 

@ Runs WORD STAR, dBASE 11, COBOL-80, FORTRAN-80, met witiens Sion “ant” "aR “Kan” Saetor oan 

PEACHTREE and ALL other CP/M software with no pre- boot. viewmasTem = =—-179 YES VES) VES) eS sVES VES VES ves 
@ Asemi-custom 1.C. and a low parts count allows the Z-8U Plus to fly SUPRTERAL = MORE NO SES NO Se SE NOS ae 
thru CP/M programs at a very low power level. (We use the Z-80A at MICARDEU., © MORE pat - = NEN ON ee i 
fast 4MHZ) mena MORT VES YES Nu) ie - - a 
@ Does EVERYTHING the other 2-80 buards do, plus Z-80 interrupts. Miecdae GEE A cn, As. ae le 2 eee aa 
SANVAK EER MORI VES vis NO “a AQ) YES vis Oo 
Don't confuse the Z-80 Plus with crude Copies of the microsoft card. The VIDA, ORI Sie RS HER Mair VES aE ORO S48 


7-80 Plus employs amuch more sophisticated and reliable design. With 
the Z-80 Plus you can access the largest body of software in existence. 
Two computers in one and the advantages of both, all atan unbelievably 


low price. PRICE $139.00 


The VIEWMASTER 80 works with all 80 ¢ olumn applications including CP/M, 
Pascal. WordStar, Format It, Easywriter, Apple Writer fl, VisiCalc, and all 
others. The VIEWMASTER 80 is THE MOST compatible 80 column card you 


can buy at ANY price! PRICE $179.00 


@ Expands your Apple Ile to 192K memory. MemoryMaster Ile 128K RAM Card 

@ Provides an 80 column text display. a ; . : 

@ Compatible with all Apple He 80 column and extended 80 column © Sa ah SG aL Norn euccea and Gh 
card software {same physical atioes Apple's 64K card). @ Documentation included, we show you how to use all 192K. 

@ Can he used as a solid state disk drive to make your ProRram> sak up Ityou already have Apple's 64K card just orderthe MEMORYMASTER Ite with 048 and use 
to 20 times FASTER (the 64K configuration will act as halfa drive). the 64K trom your old board to give you a full 128 (The board 1 fully socketed s0 you 

@ Permits your lle to use the new double high resolution graphics. simply plug in mare Chips) 

@ Automatically expands Visicalc to 95 K storage in 80 columins! The MemoryMaster tle with 128K $249 
64K config. ts all that’s needed, 128K can take you even higher. Upgradeable MemoryMaster Ile with 64K $169 

@ PRO-DOS willuse the MemoryMaster lle as a high speed disk drive. Non-Upgradeable MemoryMaster He with 64K $149 


Out boards ate far supenorto most ofthe Consumer chectrones made today AILL Cs atean high qualily sockets with nub spec Compunents used throughout PC boards are glass: 
epory with gold contacts Made in Amen a to be the bestin the word All products workin (he APPLETLE HEIs aost trankln The MemoryMaster He is He only Apphed Engineenng 
also manulactures a full line of data ac Question god control products tothe Apple A/D converters and digital ZO cards ete Please call fotmore mtocmation. Allour products are fully 
tested with complete documentation god avadeble tor nnmeduwte delwery All products are guaranteed with 4 oo hassle THREE VEAR WARRANTY. 
Send Check of Money Ordet to: Call (214) 492-2027 
APPLIED ENGINEERING 8 am. to 11 p.m. 7 days a week 
P.O. Box 798 MasterCard, Visa & C.0.D. Welcome 
Carroliton, TX 75006 No extra charge for credit cards 


Texas Residents Add 5% Sales Tax 
Add $10.00 If Outside U.S.A. 
Dealer inquiries Welcome 
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to enter the output slot number or address in zero-page bytes 0 
and l. 


The Motorola program requires two additional pieces of 
information. It needs a byte at 0002 which will be either $00 
or $80, denoting whether to set the high bit to 0 or 1 on every 
output byte. It also needs an eight character name for the 
header record. This should be entered in zero-page locations 


0003 through 000A. 


For example, assume the object code I want to format is in the 

Apple between $6000 and S67FF. In the target processor it will 
load at address $1000. The name of the program is “SAMPLE”. I 
want to send the data with the high bit = 0. The device I want 
to send it to is connected to an intelligent peripheral card in 


Slot 2. Here is what I type: 


]BRUN B.MOTOROLA FORMATTER (or :BRUN B.MOTOROLA FORMATTER 
]CALL -151 (or :MNTR) 

*0;2 0 (send to slot 2) 

*30 (hi-bit = 0) 

*:53 41 4D 50 4C 45 20 20 ("SAMPLE") 

*1000<6000.67FF'Y (“Y means control-yY) 


I recommend comparing this program and my description of it 
with the Intellec program and article in the April AAL. Here 


is the Motorola formatter: 


1000 ®SAVE S.MOTOROLA S<TYPE OBJEC 
1010 “OR ShO0 a 
0000- 1030 PORT ~~ +.EQ $00.01 
0002- 108o HI.BIT “EG 2” ; 
0012~ 1060 CHECK.SUM .EQ $1 
0013- 1070 TYPE -EQ $1 
0014- 1080 COUNT EQ $1 
0015- 1090 REMAINING °EQ $15, 16 
0019= 40 aa "EQ $16’ Ia 
: EQ 319/144 
001B- 1139 TARGET .EQ 1B Je 
003C- 1140 A1—s—«w EQ. $3C,3D—~CS 
003E- 1150 A2 -EQ "3D 
ooho- 1160 A -EQ $40,541 
0042~ 1170 A 2EQ $4274 
004 4— 1180 AD -EQ $44,45 
03F8~ 1200 CTRLY.VECTOR EQ $3F8 THRU 
03EA- 1210 DOS. REHOOK "BG $358 ad 
FCB4- 1230 MON.NXTAS ~~ ~.EQ $FCBA. 
8E- 1240 MON.CROUT "EG FD8E 
FDDA- 1250 MON . PRHEX -EQ $FDDA 
FDED- 1260 MON .COUT »EQ $FDED 
FE93- 12 0 MON. SETVID .£Q $FE93 
1290 &@ SETUP CONTROL-Y 
0800- A9 10 13496 SEYUP LDA? SEND.DATA SSS 
= A #SEND.DATA 
0802- 8D F9 03 1320 STA CTRLY.VECTOR+1 
0805= A9 0 1330 LDA /SEND.DATA 
0807- 8D FA 03 1340 STA CTRLY.VECTOR+2 
Opone AB ES 03 4220 meat 
OB0C~ 8D 1 0 STA CTRLY. VECTOR 
3 0 Wee bei ae eee eee eer eae 
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0872- 85 3F 


03 


cae coed cee cam eth eae ch ooh dh eh ceed cee eed eed ech om 
LS DS SS SL SP to 2 2 


AADAYS 


FA) med cee ce coe eh wa cel we cd ce eth ee ee eed coh eh eed od om et ce ed eh eed eh eh eed ond ed eed ed eh ed ed eh oe ah ed ed etd ed ed od oo od 


DOW W109 D0 O10 100 0900 6909 0900 09 0D COCO) SAI AI IAI HOAAN ANON 


# #0:xXX YY (LO,HI OF PORT) 

# #377 00’OR 80, FOR ASCII HI-BIT) 

# #:C1 C2 c3 C4 C5 C6 C7 C8 = ASCII VALUES FOR 
® THE 8 CHARACTERS OF THE NAME 
®  #TARGET<START.END<Y> 

# IF PORT IS 0, DO NOT CHANGE OUTPUT 

" IF PORT IS 1...7, OUTPUT TO SLOT. 

® ELSE OUTPUT TO SUBROUTINE 

* SEND BYTES START... END 

it 1. TURN ON OUTPUT PORT 

& 2. SEND ID RECORD 

& 3 SEND DATA RECORDS 

& > SEND EOF RECORD 

® 5; TURN OFF OUTPUT PORT 


JSR SAVE. PARAMETERS 

TURN .ON .OUTPUT. PORT 
SEND. ID. RECORD 
RESTORE. PARAMETERS 
SEND.DATA. RECORDS 
SEND. EOF. RECORD 

TURN .OFF.OUTPUT. PORT 


SAVE. PARAMETERS 
; LDX # 


RESTORE. PARAMETERS 
LDX #1 
1 START, X 


TURN .ON .OUTPUT. PORT 
LDX PORT+1 


ot 

PORT LO-BYTE, MUST BE SLOT 

AND #$07 
SLOT 0, JUST SCREEN 


«oe ALWAYS 
HI-BYTE OF SUBROUTINE 
LO-BYTE OF SUBROUTINE 


BEQ . 
ORA #$CO 
BNE . 


PORT 
STA ; 
DOS . REHOOK 


SEND.ID-RECORD 
LDA #'0' 


LDA 
STA 
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HI-BYTE OF PORT SPECIFIED 


O874- AX 03 2130 LDA #NAME 


0876- 85 3C 2140 STA Al 
0878- AS OA 2150 LDA #NAME+7 
O87A- 85 3E 2160 STA A2 
087C- 4c CH 08 a : . JMP SEND. RECORD 
2190 SEND.DATA. RECORDS 
O87F- AQ 31 2200 LDA #'1! TYPE = "18 
0881- 85 13 2210 STA TYPE | 
0883- E6 3E 2220 INC A2 POINT JUST BEYOND THE END 
0885- DO 02 2230 BNE .1 
O887- E6 3F 22 INC A2+1 
0889- 38 2250 .1 SEC 
O88A- A2 14 2260 LDX #20 
088C- A5 3E 2270 LDA A2 SEE HOW MANY BYTES LEFT 
O88R- 5 3c 2280 SBC A1 
0890- 85 15 2290 STA REMAINING 
0892- a5 3F 2300 LDA A2+1 
0894- E5 3D 2310 SBC A1+1 
06 38- 85 1 2320 STA REMAINING+1 
0898- DO 0 2330 BNE .2 USE MIN(20,A2-A1+1) 
O89A- EX 1 2340 CPX REMAINING 
089C- 90 0 2350 BCC . 
O89E- A6 iF 2360 LDX REMAINING 
O8A2— 86 14 2380 .2 STX COUNT 
O8A4- 20 CH 08 2390 JSR SEND. RECORD 
O8A7—- 4c 89 08 2400 JMP .1 ee ALWAYS 
O8AA- 60 2h10 .3 RTS 
2Y20 towne nnn nnn een nnn nnn eee 
2430 SEND. EOF. RECORD 
O8AB- A 00 24 #0 # OF DATA BYTES «= 0 
O8AD- 85 14 2450 STA COUNT 
O8AF- AQ 39 2460 LDA #'9° TYPE="9*" 
O8Bi- 85 13 2470 STA TYPE 
O8B3- AS 1B 2480 LDA TARGET RUN ADDRESS (LO) 
O8B5- 85 42 2490 STA A 
O8B7- A5 1C 2500 LDA TARGET+1 RUN ADDRESS (HI) 
O8B9- 85 43 2510 STA A4-+1 
O8BB- 4c C4 08 2320 7 JMP SEND. RECORD 
Seho TURN .OFF. OUTPUT. PORT 
O8BE- 20 93 FE 2550 JSR MON.SETVID 
O8C1- 4C EA 03 $260 . JMP DOS. REHOOK 
2580 SEND. RECORD 
O8CH- AX 53 2590 LDA #'S! LETTER "S* 
08C6- 20 21 09 2600 JSR SEND.FRAME 
O8C9=- A5 13 2610 LDA TYPE TYPE "0", "1", OR "9" 
O8CB- 20 21 09 2620 JSR SEND. FRAME 
O8CE- AQ 00 2630 LDA #¢0 INIT CHECKSUM 
O8D0- 85 12 2640 STA CHECK. SUM 
O8D2- 1 2650 CLC 
O8D3—- A5 14 2660 LDA COUNT SEND BYTE COUNT 
08D5- 69 03 2670 ADC #3 -ee INCLUDING ADDR AND CSUM 
O8D - 20 7 09 26 0 JSR SEND.BYT 
O8DA- A5 2690 LDA Al+1 SEND ADDRESS 
O8DC- 20 07 09 2700 JSR SEND.BYTE 
OBDF- A5 42 2710 LDA AY 
O8E1- 20 07 09 2720 JSR SEND.BYTE 
O8E4- AS 1 2730 LDA COUNT ANY DATA? 
O8E6- FO OE 2740 BEQ .2 «eNO 
O8E8- AO 00 2750 LDY #0 --- YES, SEND DATA 
O8EA- B1 3 2760 .1 LDA (A1),Y 
O8EC- 20 09 2770 JSR SEND.BYT 
OBER - 20 BA FC 2780 JSR MON .NXTA 
O8F2=- C6 14 2790 DEC COU 
O8F4- DO FH 2800 BNE .1 
O8F6- A5 12 2810 .2 LDA CHECK.SUM SEND CHECK SUM 
O8F8- 49 FF 2820 EOR #$FF 
O8FA- 20 07 09 2830 JSR SEND.BYTE 
O8FD- AQ OD 2840 LDA #$0D SEND CRLF 
O8FF- 20 21 09 2850 JSR SEND. FRAME 
0902= AQ OA 2860 LDA #$0A LINEFEED 
0904=- 4C 21 09 2870 JMP SEND. FRAME 
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0907— 48 9 PHA SAVE BYTE 
0908- 18 3910 CLC : 
0909- 65 12 2920 ADC CHECK. SUM ACCUMULATE CHECKSUM 
O90B- 85 12 29 30 STA CHECK .SUM 
O90D- 68 2940 PLA RECOVER BYTE 
O90E=- 48 2950 PHA SAVE ANOTHER COPY 
OF= AA 2960 LSR READY FIRST DIGIT 
10— HA 2 jf LSR 
0911— HA 29 LSR. 
0912— AA 2990 LSR ; 
0913—- 20 19 09 3000 JSR SEND.DIGIT.. 
09 16—= 010 PLA RECOVER BYTE 
0917- 29 OF 3020 AND #$0F | READY SECOND DIGIT 
030 SEND.DIGIT 
0919- 09 30 =‘: 3080 ORA #$30 CHANGE TO ASCII 
091B- cd 3a 3050 CMP #33A . 
091D=- 90 02 3 0 BCC SEND. FRAME 
091F- 69 06 070 ADC #6 CHANGE TO A...F 
3080 SEND. FRAME 
0921- 05 02 3090 ORA HI.BIT $00 OR $80 
0923 AC ED FD 3100 , JMP MON. COUT , 
3120 OR $300 
130 SAMPLE 
0300- 86 44 B7 
O308- h2 BS | 3940 HS 86.84.B7.01.00.41.42.43 
Osob- 4a HE AG 
2) aren 
0310— AC AD AE 3136 eHS 4C.4D.4E 


...we often provide 


S-C Macro Assembler. The key to unlocking all the 
mysteries of machine language. Combined editor/ 
assembler with 29 commands, 20 directives. Macros, 
conditional assembly, global replace, edit, and more. 
Highest rating “The Book of Apple Software” in 1983 
and 1984. $80. 


Powerful cross-assembler modules also available to 
owners of S-C Macro Assembler. You can develop soft- 
ware on your Apple for 6800, 6805, 6809, 68000, 8085, 
8048, 8051, 1802, LSI-11, and Z-80 microprocessors. 
$50 each. 


S-C Xref. A support program which works with the S-C 
Macro Assembler to generate an alphabetized listing of 
all labels in a source file, showing with each label the 
the line number where it is defined along with all line 
numbers containing references to the label. You get the 
complete source code for this amazingly fast program, 
on disk in format for S-C Macro Assembler. $50. 


Full Screen Editor. Integrates with the built-in line- 
oriented editor in the S-C Macro Assembler to provide 
a powerful full-screen editor for your assembly lan- 
guage source files. Drivers for Videx, STB80, and Apple 
/e 80-column boards are included, as well as standard 
40-column version. Requires 64K RAM in your Apple. 
Complete source code on disk included. $50. 
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Complete, Commented Source Code! 


Our software is not only unlocked and fully copyable 
the complete source co 


e on disk, at unbelievable prices! 


S-C Docu-Mentor for Applesoft. Complete documenta- 
tion of Applesoft internals. Using your ROM Applesoft, 
produces ready-to-assemble source code with full 
labels and comments. Educational, entertaining, and 
extremely helpful. Requires S-C Macro Assembler and 
two disk drives. $50. 


S-C Word Processor. The one we use for manuals, 
letters, our monthly newsletter, and whatever. 40- 
columns only, requires lower-case display and shiftkey 
mod. Works with standard DOS text files, but at super 
fast (100 sectors in 7 seconds). No competition to 
WordStar, but you get complete source code! $50. 


Apple Assembly Line. Monthly newsletter published 
since October, 1980, for assembly language pro- 
grammers or those who would like to be. Tutorist arti- 
cles, advanced techniques, handy utility programs, 
and commented listings of code in DOS, ProDOS, and 
the Apple ROMs. Helps you get the most out of your 
Apple! $18/year. 


S-C SOFTWARE CORPORATION 
2331 Gus Thomasson, Suite 125 
Dallas, TX 75228 (214) 324-2050 


Professional Apple Software Since 1978 
Vies, MasterCard, American Express, COD accepted. 
Agpte = a tacemnark o Apple Compute inc 


Making a 65C02 Work in my Apple II Plus........William O'Ryan 


I am writing this on my Apple II Plus running a 2 MHz 65C02 
(GTE G65SCO2PI-2). All is well now, but it took some doing. 


A few days after pluggin in the chip I started noticing 
problems. Applesoft found itself unable to process numeric 
literals, and the version of FORTH I have been developing began 
acting weird. 


Following the tip in AAL that the timing of the fetch-process- 
save instructions might be responsible, I ran some tests on 
them. The 65C02 worked flawlessly. Apparently the problem is 
elsewhere. 


After further checking, especially in my FORTH, I found that a 

certain BNE instruction sitting in the first byte of a page and 
branching backward into the prior page frequently branched back 
one byte less than it should. 


I'm not a hardware person, but I figured debugging is debugging 
and I really wanted that chip to work, so I began staring at 
the circuit diagram in the Apple Reference manual. After 
several hours I concluded that I stood for input, O for output, 
D for data, and A for address. 


The easiest hypothesis to check seemed to be that data was not 
getting back from the RAMs to the microprocessor in time. So I 
wrote down some chip numbers and went downtown to see if I 
could buy some faster varients. Well, the first two chips I 
replaced solved the problem. 


They were 74LS257 chips at B6 and B7. These chips multiplex 
the output of RAM with the output of the keyboard and send the 
result to the 65C02. I replaced them with 74F257 chips. I 
understand these consume less power, respond faster, and are 
more susceptible to electrostatic damage. 


Anyway, my 65C02 is happy now. I would like to hear whether 
this modification works in other Apples, and with other 65C02s. 
Drop a line to Bob and Bill at S-C if you have any word on 
this. 
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